home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1984 November
/
64er_Magazin_84-11_1984_Markt__Technik_de.d64
/
list 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
364b
|
15 lines
10 rem ****************************
11 rem * *
12 rem * interpretercodetabelle *
13 rem * *
14 rem ****************************
20 a=0:b=33762
30 a=a+1:if a=128 then b=41118
40 if a=204 then end
50 print:print a,
60 print chr$(peek(b) and 127);:b=b+1
61 if a<128 and peek(b)<>64 then 60
62 if a>127 and peek(b-1)<128 then 60
70 if a<128 then b=b+1
80 goto 30